﻿Imports Datos
Imports Entidad

Public Class DocumentoClienteBultoNegocio

    Dim dao As New DocumentoClienteBultoDatos

    Function generarCodigoBulto() As Integer
        Return dao.generarCodigoBulto()
    End Function

    Sub registrarDocumentoBulto(bulto As DocumentoBulto)
        dao.registrarDocumentoBulto(bulto)
    End Sub

    Function listarBultosRegistrados(codPedido As String) As DataSet
        Return dao.listarBultosRegistrados(codPedido)
    End Function

    Sub desactivarBultos(codBulto As Integer)
        dao.desactivarBultos(codBulto)
    End Sub

    Function obtenerBulto(codigo As Integer) As DocumentoBulto
        Return dao.obtenerBulto(codigo)
    End Function

    Sub actualizarDocumentoBulto(bulto As DocumentoBulto)
        dao.actualizarDocumentoBulto(bulto)
    End Sub

    Function listarBultosXPedido(codPedido As String) As DataSet
        Return dao.listarBultosXPedido(codPedido)
    End Function

    Function listarArticulosLargos(codPedido As String) As DataSet
        Return dao.listarArticulosLargos(codPedido)
    End Function

    Function obtenerRutaCliente(codPedido As String) As String
        Return dao.obtenerRutaCliente(codPedido)
    End Function

    Sub registrarCTRG01(gen As Generico)
        dao.registrarCTRG01(gen)
    End Sub

    Sub actualizarCTRG01(gen As Generico)
        dao.actualizarCTRG01(gen)
    End Sub

    Sub eliminarCTRG01(gen As Generico)
        dao.eliminarCTRG01(gen)
    End Sub

    Function obtenerImpresionBultos(codPedido As String, tipDocumento As String) As DataSet
        Return dao.obtenerImpresionBultos(codPedido, tipDocumento)
    End Function

End Class
